Option Explicit
Sub M_Sample048()
    Dim myWb As Workbook
    Set myWb = ThisWorkbook
    myWb.OnSave = "'Msgbox "" ThisWorkbook:OnSave""'"
    myWb.OnSheetActivate = "'Msgbox "" ThisWorkbook:OnSheetActivate""'"
    myWb.OnSheetDeactivate = "'Msgbox "" ThisWorkbook: OnSheetDeactivate""'"
    Set myWb = Nothing
End Sub